home *** CD-ROM | disk | FTP | other *** search
/ VisualFX for ImageFX / VisualFX for Image FX 2.adf / Files / SetUp / 02 / 19.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-01-27  |  2.1 KB  |  94 lines
  1. /*
  2.                                  Visual FX
  3.                                     For
  4.                                  Image FX
  5.                                SetUp Script
  6.                            Written By J.L. White
  7.  
  8.                          (C)1997 Merlin's Software
  9.  
  10. */
  11. parse arg Num
  12. options results
  13. address "IMAGEFX.1"
  14.  
  15.  
  16.  
  17.     Gadget.1 = 'Select Movement Type!'
  18.     Gadget.2 = 'Right To Left'
  19.     Gadget.3 = 'Left To Right'
  20.     ListRequest 3 Gadget
  21.     MType = 0
  22.     if result = 2 then MType = 0
  23.     if result = 3 then MType = 1
  24.  
  25.     Gadget.1 = 'Select Color Or Image To Fade To!'
  26.     Gadget.2 = 'COLOR'
  27.     Gadget.3 = 'IMAGE'
  28.     ListRequest 3 Gadget
  29.     Type = 0
  30.     if result = 2 then Type = 0
  31.     if result = 3 then Type = 1
  32.  
  33.     if Type = 1 then do
  34.         ReDraw On
  35.         LoadBuffer "VFXIFX:Images/Pics/Seamless.Pic" Force
  36.         RequestNotify "Look At Examples For FileName Then Click OK"
  37.  
  38.         RequestFile '"Select File To Use For BackGround!" "VFXIFX:Images/Seamless" ""'
  39.         PicName = result
  40.         ColorPic = 1
  41.         Color = 1
  42.         Scroll = 0
  43.         XOff = 0
  44.         YOff = 0
  45.  
  46.         Gadget.1 = 'Do You Wish To Scroll Image?'
  47.         Gadget.2 = 'Scroll Image'
  48.         Gadget.3 = 'Do NOT Scroll'
  49.         ListRequest 3 Gadget
  50.         if result = 2 then Scroll = 1
  51.         if result = 3 then Scroll = 0
  52.         if Scroll = 1 then do
  53.  
  54.             text1 = '"Move X"'
  55.             text2 = '"Move Y"'
  56.             Gadget.1  = 'SLIDER LE=60 TE=4 WD=150 HT=14 LB='text1' IN=1 LO=-10 HI=10 LV=%-3ld'
  57.             Gadget.2  = 'SLIDER LE=60 TE=22 WD=150 HT=14 LB='text2' IN=1 LO=-10 HI=10 LV=%-3ld'
  58.             Gadget.3 = 'END'
  59.             NewComplexRequest  '"Select X & Y Movements!"' Gadget 250 42
  60.             if rc ~= 0 then do
  61.                 XOff = 0
  62.                 YOff = 0
  63.                 end
  64.             else do
  65.                 XOff = RESULT.1
  66.                 YOff = RESULT.2
  67.                 end
  68.             end
  69.  
  70.         end
  71.     else do
  72.  
  73.         ActiveColor 0
  74.         RequestNotify "Click On Color To Use As BackGround Then Click OK"
  75.         ActiveColor
  76.         Color = result
  77.         ColorPic = 0
  78.         PicName = ""
  79.         Scroll = 0
  80.         XOff = 0
  81.         YOff = 0
  82.         ActiveColor 1
  83.         end
  84.  
  85. call open TempFile,"VFXIFX:TempDrawer/"strip(Num),W
  86. call writeln TempFile,Color
  87. call writeln TempFile,ColorPic
  88. call writeln TempFile,PicName
  89. call writeln TempFile,Scroll
  90. call writeln TempFile,XOff
  91. call writeln TempFile,YOff
  92. call writeln TempFile,MType
  93. call close TempFile
  94.